home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / bbbbs84.lha / rexx / bbsSounds.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-10-26  |  2.2 KB  |  62 lines
  1. /* bbsSounds.rexx 6.5 (26.10.93)
  2.    Handles sounds for BBBBS - Edit this file to your preferences.
  3.  
  4.      Valid sounds are (see BBBBS.DOC for more info);
  5.  
  6.         LOGON  LOGOFF  UPLOAD  DOWNLOAD  JUMP  CBV
  7.         INFO  TIMEOUT  YELL  LOST  TFAIL  MESSAGE
  8.         NEW_USER  NEW_FILE  FEEDBACK  ATZ_FAIL
  9.  
  10.           ...and the "default" sound,  ALERT
  11.  
  12.     First, the "IF" statement will be executed looking for specific
  13.     instructions. You can use any effects available in c:sound. You can
  14.     use any soundfile located anywhere, just specify its full path.
  15.  
  16.     If there is no valid IF instruction, AND the soundname does not
  17.     exist in the Sounds directory, the last ELSE loop will be executed.
  18.  
  19.     If the soundname is referred to in the IF loop, the default ALERT
  20.     sample will be sounded. If ALERT does not exist, or no instruction
  21.     for the specific soundname is found, then no sound will be heard.
  22.     Otherwise, if the sound exists in Sounds directory, it will be played.
  23.  
  24.     You may also turn off ALL sounds using a switch in CONFIG.BBS, or by
  25.     using the Shift-F4 Function Key to toggle voice & sounds ON/OFF.
  26.  
  27.     I have set the sounds at a lower volume (v32) to balance better with
  28.     the Amiga voice, should you be using both. Feel free to alter at will.
  29. */
  30.  
  31. IF GETCLIP('BBS_NOISE')='OFF' THEN EXIT
  32. ARG soundpath sound 
  33. sound=STRIP(sound)
  34. soundpath=STRIP(soundpath)
  35. soundspec=soundpath||sound
  36.  
  37. IF sound='STUPID_USER' THEN soundspec='DH0:Stuff/Sounds/Ugly FADE'
  38.  
  39. /* insert your external soundfiles or special args here. Syntax: */
  40. /*  ELSE IF sound='VALID_SOUND' THEN soundspec='new_soundfile_path' */
  41.  
  42. ELSE IF soundspec~='' & EXISTS(soundspec) THEN soundspec=soundspec 'v24'
  43. ELSE
  44.   DO
  45.     IF EXISTS(soundpath'ALERT') THEN
  46.       DO
  47.         IF sound='TIMEOUT'  THEN soundspec=soundpath'ALERT v32'
  48.         IF sound='LOST'     THEN soundspec=soundpath'ALERT 3 v32 e4' /* vol 32=>4 */
  49.         IF sound='ATZ_FAIL' THEN soundspec=soundpath'ALERT 5 v4 e32' /* vol 4=>32 */
  50.       END
  51.     IF ~EXISTS(WORD(soundspec,1)) THEN EXIT 1
  52.   END
  53. DO i=1 TO 10 WHILE GETCLIP('BBS_Sounding')~=''
  54.   CALL DELAY(100)
  55. END
  56. CALL SETCLIP('BBS_Sounding',sound)
  57. ADDRESS COMMAND 'c:sound' soundspec 'q'  /* q = no window */
  58. CALL SETCLIP('BBS_Sounding')
  59. EXIT 0
  60.  
  61. /* bbsSounds.rexx */
  62.